home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Interview.dir / Internal_57.ls < prev    next >
Encoding:
Text File  |  1997-01-22  |  1.0 KB  |  39 lines
  1. on mouseEnter
  2.   global chica
  3.   if (chica <> "B") or (the currentSpriteNum <> 9) then
  4.     cursor([cast "curs", cast "mask"])
  5.     puppetSprite(the currentSpriteNum, 1)
  6.     set the blend of sprite the currentSpriteNum to 50
  7.   end if
  8. end
  9.  
  10. on mouseLeave
  11.   cursor(-1)
  12.   set the blend of sprite the currentSpriteNum to 100
  13. end
  14.  
  15. on mouseUp
  16.   global chica
  17.   cursor(-1)
  18.   if (chica <> "B") or (the currentSpriteNum <> 9) then
  19.     set pregunta to the name of cast the castNum of sprite the clickOn & chica
  20.     set the blend of sprite the currentSpriteNum to 100
  21.     repeat with x = 11 to 17
  22.       puppetSprite(x, 0)
  23.       set the visible of sprite x to 0
  24.     end repeat
  25.     puppetSound(0)
  26.     go("video")
  27.     set the visible of sprite 18 to 0
  28.     puppetSprite(18, 1)
  29.     set the castNum of sprite 18 to the number of member "blank"
  30.     updateStage()
  31.     set the castNum of sprite 18 to the number of member ("video" & pregunta)
  32.     set the visible of sprite 18 to 1
  33.     repeat with x = 12 to 16
  34.       set the visible of sprite x to 1
  35.     end repeat
  36.     updateStage()
  37.   end if
  38. end
  39.